home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / EXAMPLE_PROGRAMS / example08.AMOS / example08.amosSourceCode
AMOS Source Code  |  1992-03-06  |  2KB  |  65 lines
  1. '================= 
  2. 'EXAMPLE PROGRAM 8 
  3. '================= 
  4.  
  5.  
  6. Rem the usual start up stuff 
  7. '--------------------------- 
  8. Curs Off : Paper 8 : Pen 0 : Cls 8
  9.  
  10.  
  11. Rem the CENTRE command is used instead of PRINT, to CENTRE text on screen. 
  12. '-------------------------------------------------------------------------]
  13. Centre "DEMONSTRATION OF CHANGE MOUSE"
  14.  
  15.  
  16. Rem colour 3 is set to flashing as default, you can switch flash off with  
  17. Rem the command FLASH OFF, try putting it in.
  18. '--------------------------------------------------------------------------
  19. Pen 3
  20.  
  21.  
  22. Rem set text cursor to 0 across 10 down and CENTRE the text, as the current
  23. Rem PEN colour is set to 3 this text will FLASH. 
  24. '--------------------------------------------------------------------------- 
  25. Locate 0,10 : Centre "NORMAL MOUSE POINTER"
  26.  
  27.  
  28. Rem wait here for 4 seconds to give enough time to read the text.
  29. '----------------------------------------------------------------
  30. Wait 200
  31.  
  32. Rem you tell me what this does!
  33. '------------------------------- 
  34. Locate 0,10 : Centre "CROSS HAIR MOUSE POINTER"
  35.  
  36.  
  37. Rem This is to CHANGE the MOUSE pointer to image 2 
  38. '--------------------------------------------------- 
  39. Change Mouse 2
  40.  
  41.  
  42. Rem WAIT 4 SECONDS 
  43. '----------------- 
  44. Wait 200
  45.  
  46.  
  47. Rem If you still don't understand CENTRE change it to PRINT and you will 
  48. Rem understand it then.
  49. '------------------------------------------------------------------------- 
  50. Locate 0,10 : Centre "CLOCK MOUSE POINTER, UGH!"
  51.  
  52.  
  53. Rem CHANGE the MOUSE to  clock 
  54. '----------------------------- 
  55. Change Mouse 3
  56.  
  57.  
  58. Rem hang around for 4 seconds
  59. '----------------------------
  60. Wait 200
  61.  
  62.  
  63. Rem go back to the editor
  64. '------------------------
  65. Edit